home *** CD-ROM | disk | FTP | other *** search
Text File | 1986-01-13 | 50.1 KB | 1,983 lines |
- temp <- <primitive 110 10 >
- <primitive 112 temp 1 " view " \
- #( #[ 32 250 1 156 242 245] \
- #( ) ) >
-
- <primitive 112 temp 2 " variables " \
- #( #[ 32 250 1 158 243 245] \
- #( ) ) >
-
- <primitive 112 temp 3 " superClass " \
- #( #[ 32 250 1 151 243 245] \
- #( ) ) >
-
- <primitive 112 temp 4 " respondsTo: " \
- #( #[ 32 114 34 162 247 18 34 33 250 2 155 247 2 91 243 \
- 242 34 10 44 241 114 242 249 22 242 92 243 245] \
- #( ) ) >
-
- <primitive 112 temp 5 " respondsTo " \
- #( #[ 32 250 1 154 242 245] \
- #( ) ) >
-
- <primitive 112 temp 6 " printString " \
- #( #[ 32 250 1 152 243 245] \
- #( ) ) >
-
- <primitive 112 temp 7 " new: " \
- #( #[ 32 250 1 151 114 34 250 1 3 247 4 34 160 241 115 \
- 242 32 35 250 2 153 115 32 48 250 2 155 247 5 35 \
- 33 176 241 115 242 35 243 245] \
- #( #new: ) ) >
-
- <primitive 112 temp 8 " new " \
- #( #[ 32 250 1 151 113 33 250 1 3 247 4 33 160 241 114 \
- 242 32 34 250 2 153 114 32 48 250 2 155 247 4 34 \
- 160 241 114 242 34 243 245] \
- #( #new ) ) >
-
- <primitive 112 temp 9 " list " \
- #( #[ 32 250 1 157 242 245] \
- #( ) ) >
-
- <primitive 112 temp 10 " edit " \
- #( #[ 32 250 1 150 242 245] \
- #( ) ) >
-
- <primitive 98 #Class \
- <primitive 97 #Class #Object #class.st \
- #( ) \
- #( #view #variables #superClass #respondsTo: #respondsTo #printString #new: #new #list #edit ) \
- temp 4 4 > >
-
- temp <- <primitive 110 23 >
- <primitive 112 temp 1 " shallowCopy " \
- #( #[ 32 243 245] \
- #( ) ) >
-
- <primitive 112 temp 2 " respondsTo: " \
- #( #[ 32 164 33 11 38 243 245] \
- #( ) ) >
-
- <primitive 112 temp 3 " printString " \
- #( #[ 32 10 16 243 245] \
- #( ) ) >
-
- <primitive 112 temp 4 " print " \
- #( #[ 32 169 250 1 121 242 245] \
- #( ) ) >
-
- <primitive 112 temp 5 " perform:withArguments: " \
- #( #[ 33 34 250 2 95 242 250 0 140 242 245] \
- #( ) ) >
-
- <primitive 112 temp 6 " notNil " \
- #( #[ 91 243 245] \
- #( ) ) >
-
- <primitive 112 temp 7 " next " \
- #( #[ 93 243 245] \
- #( ) ) >
-
- <primitive 112 temp 8 " isNil " \
- #( #[ 92 243 245] \
- #( ) ) >
-
- <primitive 112 temp 9 " isMemberOf: " \
- #( #[ 33 32 164 181 243 245] \
- #( ) ) >
-
- <primitive 112 temp 10 " isKindOf: " \
- #( #[ 32 164 114 34 162 247 16 34 33 181 247 2 91 243 242 \
- 34 10 44 241 114 242 249 20 242 92 243 245] \
- #( ) ) >
-
- <primitive 112 temp 11 " first " \
- #( #[ 32 243 245] \
- #( ) ) >
-
- <primitive 112 temp 12 " error: " \
- #( #[ 33 32 250 2 122 242 245] \
- #( ) ) >
-
- <primitive 112 temp 13 " doPrimitive:withArguments: " \
- #( #[ 33 34 250 2 30 243 245] \
- #( ) ) >
-
- <primitive 112 temp 14 " do: " \
- #( #[ 32 166 114 34 162 247 11 33 34 180 242 32 167 241 114 \
- 242 249 15 242 93 241 114 243 245] \
- #( ) ) >
-
- <primitive 112 temp 15 " deepCopy " \
- #( #[ 32 243 245] \
- #( ) ) >
-
- <primitive 112 temp 16 " copy " \
- #( #[ 32 10 40 243 245] \
- #( ) ) >
-
- <primitive 112 temp 17 " class " \
- #( #[ 32 250 1 1 243 245] \
- #( ) ) >
-
- <primitive 112 temp 18 " asSymbol " \
- #( #[ 32 10 16 10 17 243 245] \
- #( ) ) >
-
- <primitive 112 temp 19 " asString " \
- #( #[ 32 164 169 243 245] \
- #( ) ) >
-
- <primitive 112 temp 20 " ~= " \
- #( #[ 32 33 201 172 243 245] \
- #( ) ) >
-
- <primitive 112 temp 21 " = " \
- #( #[ 32 33 181 243 245] \
- #( ) ) >
-
- <primitive 112 temp 22 " ~~ " \
- #( #[ 32 33 181 172 243 245] \
- #( ) ) >
-
- <primitive 112 temp 23 " == " \
- #( #[ 32 33 250 2 7 243 245] \
- #( ) ) >
-
- <primitive 98 #Object \
- <primitive 97 #Object #Object #object.st \
- #( ) \
- #( #shallowCopy #respondsTo: #printString #print #perform:withArguments: #notNil #next #isNil #isMemberOf: #isKindOf: #first #error: #doPrimitive:withArguments: #do: #deepCopy #copy #class #asSymbol #asString #~= #= #~~ #== ) \
- temp 3 3 > >
-
- temp <- <primitive 110 18 >
- <primitive 112 temp 1 " sameAs: " \
- #( #[ 32 33 250 2 6 224 6 32 33 250 2 102 243 224 4 \
- 32 10 19 243 209 243 245] \
- #( ) ) >
-
- <primitive 112 temp 2 " size " \
- #( #[ 32 250 1 100 243 245] \
- #( ) ) >
-
- <primitive 112 temp 3 " print " \
- #( #[ 32 250 1 121 242 245] \
- #( ) ) >
-
- <primitive 112 temp 4 " printString " \
- #( #[ 32 250 1 109 243 245] \
- #( ) ) >
-
- <primitive 112 temp 5 " new: " \
- #( #[ 33 250 1 115 243 245] \
- #( ) ) >
-
- <primitive 112 temp 6 " deepCopy " \
- #( #[ 32 250 1 107 243 245] \
- #( ) ) >
-
- <primitive 112 temp 7 " copyFrom:length: " \
- #( #[ 32 33 34 250 3 106 243 245] \
- #( ) ) >
-
- <primitive 112 temp 8 " copyFrom:to: " \
- #( #[ 32 33 34 33 193 81 192 250 3 106 243 245] \
- #( ) ) >
-
- <primitive 112 temp 9 " compareError " \
- #( #[ 32 48 188 243 245] \
- #( 'strings can only be compared to strings' ) ) >
-
- <primitive 112 temp 10 " at:put: " \
- #( #[ 32 33 34 250 3 105 242 245] \
- #( ) ) >
-
- <primitive 112 temp 11 " at: " \
- #( #[ 32 33 250 2 104 243 245] \
- #( ) ) >
-
- <primitive 112 temp 12 " asSymbol " \
- #( #[ 32 250 1 108 243 245] \
- #( ) ) >
-
- <primitive 112 temp 13 " > " \
- #( #[ 32 33 250 2 6 224 8 32 33 250 2 101 80 204 243 \
- 224 4 32 10 19 243 209 243 245] \
- #( ) ) >
-
- <primitive 112 temp 14 " >= " \
- #( #[ 32 33 250 2 6 224 8 32 33 250 2 101 80 203 243 \
- 224 4 32 10 19 243 209 243 245] \
- #( ) ) >
-
- <primitive 112 temp 15 " <= " \
- #( #[ 32 33 250 2 6 224 8 32 33 250 2 101 80 200 243 \
- 224 4 32 10 19 243 209 243 245] \
- #( ) ) >
-
- <primitive 112 temp 16 " < " \
- #( #[ 32 33 250 2 6 224 8 32 33 250 2 101 80 199 243 \
- 224 4 32 10 19 243 209 243 245] \
- #( ) ) >
-
- <primitive 112 temp 17 " = " \
- #( #[ 32 33 250 2 6 224 8 32 33 250 2 101 80 201 243 \
- 224 4 32 10 19 243 209 243 245] \
- #( ) ) >
-
- <primitive 112 temp 18 " , " \
- #( #[ 32 33 250 2 103 243 245] \
- #( ) ) >
-
- <primitive 98 #String \
- <primitive 97 #String #ArrayedCollection #string.st \
- #( ) \
- #( #sameAs: #size #print #printString #new: #deepCopy #copyFrom:length: #copyFrom:to: #compareError #at:put: #at: #asSymbol #> #>= #<= #< #= #, ) \
- temp 3 5 > >
-
- temp <- <primitive 110 1 >
- <primitive 112 temp 1 " nothing " \
- #( #[ 81 242 245] \
- #( ) ) >
-
- <primitive 98 #ArrayedCollection \
- <primitive 97 #ArrayedCollection #Object #larray.st \
- #( ) \
- #( #nothing ) \
- temp 1 2 > >
-
- temp <- <primitive 110 3 >
- <primitive 112 temp 1 " printString " \
- #( #[ 48 243 245] \
- #( 'nil' ) ) >
-
- <primitive 112 temp 2 " notNil " \
- #( #[ 92 243 245] \
- #( ) ) >
-
- <primitive 112 temp 3 " isNil " \
- #( #[ 91 243 245] \
- #( ) ) >
-
- <primitive 98 #UndefinedObject \
- <primitive 97 #UndefinedObject #Object #nil.st \
- #( ) \
- #( #printString #notNil #isNil ) \
- temp 1 2 > >
-
- temp <- <primitive 110 7 >
- <primitive 112 temp 1 " size " \
- #( #[ 32 250 1 4 243 245] \
- #( ) ) >
-
- <primitive 112 temp 2 " printString " \
- #( #[ 48 113 81 114 34 32 250 1 4 200 247 21 33 32 34 \
- 250 2 111 169 11 17 49 11 17 113 34 81 192 241 114 \
- 242 249 29 242 33 50 11 17 113 33 243 245] \
- #( '#( ' ' ' ')' ) ) >
-
- <primitive 112 temp 3 " shallowCopy " \
- #( #[ 32 250 1 4 250 1 114 113 81 114 34 32 250 1 4 \
- 200 247 19 33 34 32 34 250 2 111 250 3 112 242 34 \
- 81 192 241 114 242 249 27 242 33 243 245] \
- #( ) ) >
-
- <primitive 112 temp 4 " deepCopy " \
- #( #[ 32 250 1 4 250 1 114 113 81 114 34 32 250 1 4 \
- 200 247 21 33 34 32 34 250 2 111 10 20 250 3 112 \
- 242 34 81 192 241 114 242 249 29 242 33 243 245] \
- #( ) ) >
-
- <primitive 112 temp 5 " at:put: " \
- #( #[ 33 81 199 251 6 33 32 250 1 4 204 247 6 32 48 \
- 188 242 93 243 242 32 33 34 250 3 112 242 34 243 245 \
- ] \
- #( 'index error' ) ) >
-
- <primitive 112 temp 6 " at: " \
- #( #[ 33 81 199 251 6 33 32 250 1 4 204 247 6 32 48 \
- 188 242 93 243 242 32 33 250 2 111 243 245] \
- #( 'index error' ) ) >
-
- <primitive 112 temp 7 " new: " \
- #( #[ 33 250 1 114 243 245] \
- #( ) ) >
-
- <primitive 98 #Array \
- <primitive 97 #Array #ArrayedCollection #array.st \
- #( ) \
- #( #size #printString #shallowCopy #deepCopy #at:put: #at: #new: ) \
- temp 3 5 > >
-
- temp <- <primitive 110 6 >
- <primitive 112 temp 1 " xor: " \
- #( #[ 32 33 182 243 245] \
- #( ) ) >
-
- <primitive 112 temp 2 " eqv: " \
- #( #[ 32 33 181 243 245] \
- #( ) ) >
-
- <primitive 112 temp 3 " or: " \
- #( #[ 32 251 2 33 165 243 245] \
- #( ) ) >
-
- <primitive 112 temp 4 " and: " \
- #( #[ 32 252 2 33 165 243 245] \
- #( ) ) >
-
- <primitive 112 temp 5 " | " \
- #( #[ 32 251 1 33 243 245] \
- #( ) ) >
-
- <primitive 112 temp 6 " & " \
- #( #[ 32 252 1 33 243 245] \
- #( ) ) >
-
- <primitive 98 #Boolean \
- <primitive 97 #Boolean #Object #boolean.st \
- #( ) \
- #( #xor: #eqv: #or: #and: #| #& ) \
- temp 2 3 > >
-
- temp <- <primitive 110 5 >
- <primitive 112 temp 1 " not " \
- #( #[ 92 243 245] \
- #( ) ) >
-
- <primitive 112 temp 2 " ifFalse: " \
- #( #[ 93 243 245] \
- #( ) ) >
-
- <primitive 112 temp 3 " ifTrue: " \
- #( #[ 33 165 243 245] \
- #( ) ) >
-
- <primitive 112 temp 4 " ifFalse:ifTrue: " \
- #( #[ 34 165 243 245] \
- #( ) ) >
-
- <primitive 112 temp 5 " ifTrue:ifFalse: " \
- #( #[ 33 165 243 245] \
- #( ) ) >
-
- <primitive 98 #True \
- <primitive 97 #True #Boolean #true.st \
- #( ) \
- #( #not #ifFalse: #ifTrue: #ifFalse:ifTrue: #ifTrue:ifFalse: ) \
- temp 3 2 > >
-
- temp <- <primitive 110 5 >
- <primitive 112 temp 1 " not " \
- #( #[ 91 243 245] \
- #( ) ) >
-
- <primitive 112 temp 2 " ifFalse: " \
- #( #[ 33 165 243 245] \
- #( ) ) >
-
- <primitive 112 temp 3 " ifTrue: " \
- #( #[ 93 243 245] \
- #( ) ) >
-
- <primitive 112 temp 4 " ifFalse:ifTrue: " \
- #( #[ 33 165 243 245] \
- #( ) ) >
-
- <primitive 112 temp 5 " ifTrue:ifFalse: " \
- #( #[ 34 165 243 245] \
- #( ) ) >
-
- <primitive 98 #False \
- <primitive 97 #False #Boolean #false.st \
- #( ) \
- #( #not #ifFalse: #ifTrue: #ifFalse:ifTrue: #ifTrue:ifFalse: ) \
- temp 3 2 > >
-
- temp <- <primitive 110 12 >
- <primitive 112 temp 1 " value:value:value:value:value: " \
- #( #[ 85 250 1 140 242 245] \
- #( ) ) >
-
- <primitive 112 temp 2 " value:value:value:value: " \
- #( #[ 84 250 1 140 242 245] \
- #( ) ) >
-
- <primitive 112 temp 3 " value:value:value: " \
- #( #[ 83 250 1 140 242 245] \
- #( ) ) >
-
- <primitive 112 temp 4 " value:value: " \
- #( #[ 82 250 1 140 242 245] \
- #( ) ) >
-
- <primitive 112 temp 5 " value: " \
- #( #[ 81 250 1 140 242 245] \
- #( ) ) >
-
- <primitive 112 temp 6 " value " \
- #( #[ 80 250 1 140 242 245] \
- #( ) ) >
-
- <primitive 112 temp 7 " whileFalse: " \
- #( #[ 32 165 246 5 33 165 242 249 9 243 245] \
- #( ) ) >
-
- <primitive 112 temp 8 " whileTrue: " \
- #( #[ 32 165 247 5 33 165 242 249 9 243 245] \
- #( ) ) >
-
- <primitive 112 temp 9 " forkWith: " \
- #( #[ 32 33 250 2 141 80 250 2 145 242 93 243 245] \
- #( ) ) >
-
- <primitive 112 temp 10 " fork " \
- #( #[ 32 250 1 141 80 250 2 145 242 93 243 245] \
- #( ) ) >
-
- <primitive 112 temp 11 " newProcessWith: " \
- #( #[ 32 33 250 2 141 243 245] \
- #( ) ) >
-
- <primitive 112 temp 12 " newProcess " \
- #( #[ 32 250 1 141 243 245] \
- #( ) ) >
-
- <primitive 98 #Block \
- <primitive 97 #Block #Object #block.st \
- #( ) \
- #( #value:value:value:value:value: #value:value:value:value: #value:value:value: #value:value: #value: #value #whileFalse: #whileTrue: #forkWith: #fork #newProcessWith: #newProcess ) \
- temp 6 3 > >
-
- temp <- <primitive 110 3 >
- <primitive 112 temp 1 " asString " \
- #( #[ 32 250 1 93 243 245] \
- #( ) ) >
-
- <primitive 112 temp 2 " printString " \
- #( #[ 32 250 1 92 243 245] \
- #( ) ) >
-
- <primitive 112 temp 3 " == " \
- #( #[ 32 33 250 2 6 224 6 32 33 250 2 91 243 224 2 \
- 92 243 209 243 245] \
- #( ) ) >
-
- <primitive 98 #Symbol \
- <primitive 97 #Symbol #Object #symbol.st \
- #( ) \
- #( #asString #printString #== ) \
- temp 2 5 > >
-
- temp <- <primitive 110 9 >
- <primitive 112 temp 1 " max: " \
- #( #[ 32 33 204 224 2 32 243 224 2 33 243 209 243 245] \
- #( ) ) >
-
- <primitive 112 temp 2 " min: " \
- #( #[ 32 33 199 224 2 32 243 224 2 33 243 209 243 245] \
- #( ) ) >
-
- <primitive 112 temp 3 " between:and: " \
- #( #[ 32 33 203 252 3 32 34 200 243 245] \
- #( ) ) >
-
- <primitive 112 temp 4 " > " \
- #( #[ 33 32 199 243 245] \
- #( ) ) >
-
- <primitive 112 temp 5 " >= " \
- #( #[ 32 33 204 251 3 32 33 201 243 245] \
- #( ) ) >
-
- <primitive 112 temp 6 " ~= " \
- #( #[ 32 33 201 172 243 245] \
- #( ) ) >
-
- <primitive 112 temp 7 " = " \
- #( #[ 32 33 204 251 3 32 33 199 172 243 245] \
- #( ) ) >
-
- <primitive 112 temp 8 " < " \
- #( #[ 33 32 204 243 245] \
- #( ) ) >
-
- <primitive 112 temp 9 " <= " \
- #( #[ 32 33 199 251 3 32 33 201 243 245] \
- #( ) ) >
-
- <primitive 98 #Magnitude \
- <primitive 97 #Magnitude #Object #magnitude.st \
- #( ) \
- #( #max: #min: #between:and: #> #>= #~= #= #< #<= ) \
- temp 3 5 > >
-
- temp <- <primitive 110 30 >
- <primitive 112 temp 1 " truncateTo: " \
- #( #[ 32 33 190 10 45 33 194 243 245] \
- #( ) ) >
-
- <primitive 112 temp 2 " to:by: " \
- #( #[ 5 46 160 241 32 33 34 131 0 242 243 245] \
- #( #from:to:by: ) ) >
-
- <primitive 112 temp 3 " to: " \
- #( #[ 5 46 160 241 32 33 81 131 0 242 243 245] \
- #( #from:to:by: ) ) >
-
- <primitive 112 temp 4 " strictlyPositive " \
- #( #[ 32 80 204 243 245] \
- #( ) ) >
-
- <primitive 112 temp 5 " squared " \
- #( #[ 32 32 194 243 245] \
- #( ) ) >
-
- <primitive 112 temp 6 " sqrt " \
- #( #[ 32 175 10 41 243 245] \
- #( ) ) >
-
- <primitive 112 temp 7 " sign " \
- #( #[ 32 80 199 224 2 90 243 224 13 32 80 204 224 2 81 \
- 243 224 2 80 243 209 243 209 243 245] \
- #( ) ) >
-
- <primitive 112 temp 8 " roundTo: " \
- #( #[ 32 33 190 10 39 33 194 243 245] \
- #( ) ) >
-
- <primitive 112 temp 9 " reciprocal " \
- #( #[ 48 32 190 243 245] \
- #( 1.00 ) ) >
-
- <primitive 112 temp 10 " raisedTo: " \
- #( #[ 32 175 33 175 11 16 243 245] \
- #( ) ) >
-
- <primitive 112 temp 11 " radians " \
- #( #[ 5 54 32 175 176 243 245] \
- #( ) ) >
-
- <primitive 112 temp 12 " positive " \
- #( #[ 32 80 203 243 245] \
- #( ) ) >
-
- <primitive 112 temp 13 " pi " \
- #( #[ 32 48 194 243 245] \
- #( 3.1415926 ) ) >
-
- <primitive 112 temp 14 " negative " \
- #( #[ 32 80 199 243 245] \
- #( ) ) >
-
- <primitive 112 temp 15 " negated " \
- #( #[ 80 32 193 243 245] \
- #( ) ) >
-
- <primitive 112 temp 16 " log: " \
- #( #[ 32 10 32 33 10 32 190 243 245] \
- #( ) ) >
-
- <primitive 112 temp 17 " ln " \
- #( #[ 32 175 10 32 243 245] \
- #( ) ) >
-
- <primitive 112 temp 18 " gamma " \
- #( #[ 32 175 10 26 243 245] \
- #( ) ) >
-
- <primitive 112 temp 19 " exp " \
- #( #[ 32 175 10 23 243 245] \
- #( ) ) >
-
- <primitive 112 temp 20 " abs " \
- #( #[ 32 80 199 224 4 80 32 193 243 224 2 32 243 209 243 \
- 245] \
- #( ) ) >
-
- <primitive 112 temp 21 " @ " \
- #( #[ 5 53 160 32 11 47 33 11 48 243 245] \
- #( ) ) >
-
- <primitive 112 temp 22 " ^ " \
- #( #[ 32 175 33 175 11 16 243 245] \
- #( ) ) >
-
- <primitive 112 temp 23 " / " \
- #( #[ 32 33 11 32 33 32 11 32 190 243 245] \
- #( ) ) >
-
- <primitive 112 temp 24 " * " \
- #( #[ 32 33 11 32 33 32 11 32 194 243 245] \
- #( ) ) >
-
- <primitive 112 temp 25 " - " \
- #( #[ 32 33 11 32 33 32 11 32 193 243 245] \
- #( ) ) >
-
- <primitive 112 temp 26 " + " \
- #( #[ 32 33 11 32 33 32 11 32 192 243 245] \
- #( ) ) >
-
- <primitive 112 temp 27 " > " \
- #( #[ 32 33 11 32 33 32 11 32 204 243 245] \
- #( ) ) >
-
- <primitive 112 temp 28 " < " \
- #( #[ 32 33 11 32 33 32 11 32 199 243 245] \
- #( ) ) >
-
- <primitive 112 temp 29 " = " \
- #( #[ 32 33 11 32 33 32 11 32 201 243 245] \
- #( ) ) >
-
- <primitive 112 temp 30 " maxtype: " \
- #( #[ 32 33 250 2 9 224 2 32 243 224 4 33 32 191 243 \
- 209 243 245] \
- #( ) ) >
-
- <primitive 98 #Number \
- <primitive 97 #Number #Magnitude #number.st \
- #( ) \
- #( #truncateTo: #to:by: #to: #strictlyPositive #squared #sqrt #sign #roundTo: #reciprocal #raisedTo: #radians #positive #pi #negative #negated #log: #ln #gamma #exp #abs #@ #^ #/ #* #- #+ #> #< #= #maxtype: ) \
- temp 3 8 > >
-
- temp <- <primitive 110 31 >
- <primitive 112 temp 1 " timesRepeat: " \
- #( #[ 80 114 34 32 199 247 11 33 165 242 34 81 192 241 114 \
- 242 249 16 242 245] \
- #( ) ) >
-
- <primitive 112 temp 2 " rem: " \
- #( #[ 32 33 250 2 6 224 6 32 33 250 2 29 243 224 4 \
- 32 10 34 243 209 243 245] \
- #( ) ) >
-
- <primitive 112 temp 3 " radix: " \
- #( #[ 32 33 250 2 26 243 245] \
- #( ) ) >
-
- <primitive 112 temp 4 " quo: " \
- #( #[ 32 33 250 2 6 224 6 32 33 250 2 28 243 224 4 \
- 32 10 34 243 209 243 245] \
- #( ) ) >
-
- <primitive 112 temp 5 " odd " \
- #( #[ 32 82 205 80 202 243 245] \
- #( ) ) >
-
- <primitive 112 temp 6 " noMask: " \
- #( #[ 80 32 33 197 201 243 245] \
- #( ) ) >
-
- <primitive 112 temp 7 " lcm: " \
- #( #[ 32 33 250 2 6 224 9 32 33 194 32 33 11 27 206 \
- 243 224 4 32 10 34 243 209 243 245] \
- #( ) ) >
-
- <primitive 112 temp 8 " highBit " \
- #( #[ 32 250 1 34 243 245] \
- #( ) ) >
-
- <primitive 112 temp 9 " gcd: " \
- #( #[ 32 33 250 2 6 224 6 32 33 250 2 20 243 224 4 \
- 32 10 34 243 209 243 245] \
- #( ) ) >
-
- <primitive 112 temp 10 " factorial " \
- #( #[ 32 250 1 38 243 245] \
- #( ) ) >
-
- <primitive 112 temp 11 " even " \
- #( #[ 32 82 205 80 201 243 245] \
- #( ) ) >
-
- <primitive 112 temp 12 " bitXor: " \
- #( #[ 32 33 250 2 24 243 245] \
- #( ) ) >
-
- <primitive 112 temp 13 " bitShift: " \
- #( #[ 32 33 250 2 25 243 245] \
- #( ) ) >
-
- <primitive 112 temp 14 " bitOr: " \
- #( #[ 32 33 250 2 22 243 245] \
- #( ) ) >
-
- <primitive 112 temp 15 " bitInvert " \
- #( #[ 32 250 1 33 243 245] \
- #( ) ) >
-
- <primitive 112 temp 16 " bitAt: " \
- #( #[ 32 33 250 2 21 243 245] \
- #( ) ) >
-
- <primitive 112 temp 17 " bitAnd: " \
- #( #[ 32 33 250 2 23 243 245] \
- #( ) ) >
-
- <primitive 112 temp 18 " asString " \
- #( #[ 32 250 1 37 243 245] \
- #( ) ) >
-
- <primitive 112 temp 19 " asFloat " \
- #( #[ 32 250 1 39 243 245] \
- #( ) ) >
-
- <primitive 112 temp 20 " asCharacter " \
- #( #[ 32 250 1 36 243 245] \
- #( ) ) >
-
- <primitive 112 temp 21 " anyMask: " \
- #( #[ 80 32 33 250 2 23 202 243 245] \
- #( ) ) >
-
- <primitive 112 temp 22 " allMask: " \
- #( #[ 33 32 33 250 2 23 201 243 245] \
- #( ) ) >
-
- <primitive 112 temp 23 " \\ " \
- #( #[ 32 33 250 2 6 224 19 32 32 80 199 224 2 90 243 \
- 224 2 81 243 209 194 114 34 33 205 243 224 4 32 10 \
- 34 243 209 243 245] \
- #( ) ) >
-
- <primitive 112 temp 24 " // " \
- #( #[ 32 33 250 2 6 224 6 32 33 250 2 19 243 224 4 \
- 32 10 34 243 209 243 245] \
- #( ) ) >
-
- <primitive 112 temp 25 " / " \
- #( #[ 32 175 33 190 243 245] \
- #( ) ) >
-
- <primitive 112 temp 26 " * " \
- #( #[ 32 33 250 2 6 224 6 32 33 250 2 18 243 224 5 \
- 32 33 145 0 243 209 243 245] \
- #( #* ) ) >
-
- <primitive 112 temp 27 " - " \
- #( #[ 32 33 250 2 6 224 6 32 33 250 2 11 243 224 5 \
- 32 33 145 0 243 209 243 245] \
- #( #- ) ) >
-
- <primitive 112 temp 28 " + " \
- #( #[ 32 33 250 2 6 224 6 32 33 250 2 10 243 224 5 \
- 32 33 145 0 243 209 243 245] \
- #( #+ ) ) >
-
- <primitive 112 temp 29 " < " \
- #( #[ 32 33 250 2 6 224 6 32 33 250 2 12 243 224 5 \
- 32 33 145 0 243 209 243 245] \
- #( #< ) ) >
-
- <primitive 112 temp 30 " > " \
- #( #[ 32 33 250 2 6 224 6 32 33 250 2 13 243 224 5 \
- 32 33 145 0 243 209 243 245] \
- #( #> ) ) >
-
- <primitive 112 temp 31 " = " \
- #( #[ 32 33 250 2 6 224 6 32 33 250 2 16 243 224 5 \
- 32 33 145 0 243 209 243 245] \
- #( #= ) ) >
-
- <primitive 98 #Integer \
- <primitive 97 #Integer #Number #integer.st \
- #( ) \
- #( #timesRepeat: #rem: #radix: #quo: #odd #noMask: #lcm: #highBit #gcd: #factorial #even #bitXor: #bitShift: #bitOr: #bitInvert #bitAt: #bitAnd: #asString #asFloat #asCharacter #anyMask: #allMask: #\\ #// #/ #* #- #+ #< #> #= ) \
- temp 3 8 > >
-
- temp <- <primitive 110 18 >
- <primitive 112 temp 1 " printString " \
- #( #[ 48 32 250 1 58 11 17 243 245] \
- #( '$' ) ) >
-
- <primitive 112 temp 2 " isVowel " \
- #( #[ 32 250 1 51 243 245] \
- #( ) ) >
-
- <primitive 112 temp 3 " isUppercase " \
- #( #[ 32 48 49 218 243 245] \
- #( $A $Z ) ) >
-
- <primitive 112 temp 4 " isSeparator " \
- #( #[ 32 250 1 55 243 245] \
- #( ) ) >
-
- <primitive 112 temp 5 " isLowercase " \
- #( #[ 32 48 49 218 243 245] \
- #( $a $z ) ) >
-
- <primitive 112 temp 6 " isLetter " \
- #( #[ 32 10 28 251 3 32 10 29 243 245] \
- #( ) ) >
-
- <primitive 112 temp 7 " isDigit " \
- #( #[ 32 48 49 218 243 245] \
- #( $0 $9 ) ) >
-
- <primitive 112 temp 8 " isAlphaNumeric " \
- #( #[ 32 250 1 56 243 245] \
- #( ) ) >
-
- <primitive 112 temp 9 " digitValue " \
- #( #[ 32 250 1 50 241 113 161 247 3 32 48 188 242 33 243 \
- 245] \
- #( 'digitValue on nondigit char' ) ) >
-
- <primitive 112 temp 10 " compareError " \
- #( #[ 32 48 188 243 245] \
- #( 'char cannot be compared to non char' ) ) >
-
- <primitive 112 temp 11 " asString " \
- #( #[ 32 250 1 58 243 245] \
- #( ) ) >
-
- <primitive 112 temp 12 " asUppercase " \
- #( #[ 32 250 1 53 224 5 32 250 1 57 243 224 2 32 243 \
- 209 243 245] \
- #( ) ) >
-
- <primitive 112 temp 13 " asLowercase " \
- #( #[ 32 250 1 54 224 5 32 250 1 57 243 224 2 32 243 \
- 209 243 245] \
- #( ) ) >
-
- <primitive 112 temp 14 " asciiValue " \
- #( #[ 32 250 1 59 243 245] \
- #( ) ) >
-
- <primitive 112 temp 15 " > " \
- #( #[ 32 33 250 2 6 224 6 32 33 250 2 43 243 224 4 \
- 32 10 19 243 209 243 245] \
- #( ) ) >
-
- <primitive 112 temp 16 " = " \
- #( #[ 32 33 250 2 6 224 6 32 33 250 2 46 243 224 4 \
- 32 10 19 243 209 243 245] \
- #( ) ) >
-
- <primitive 112 temp 17 " < " \
- #( #[ 32 33 250 2 6 224 6 32 33 250 2 42 243 224 4 \
- 32 10 19 243 209 243 245] \
- #( ) ) >
-
- <primitive 112 temp 18 " == " \
- #( #[ 32 33 250 2 6 224 6 32 33 250 2 46 243 224 2 \
- 92 243 209 243 245] \
- #( ) ) >
-
- <primitive 98 #Char \
- <primitive 97 #Char #Magnitude #char.st \
- #( ) \
- #( #printString #isVowel #isUppercase #isSeparator #isLowercase #isLetter #isDigit #isAlphaNumeric #digitValue #compareError #asString #asUppercase #asLowercase #asciiValue #> #= #< #== ) \
- temp 2 5 > >
-
- temp <- <primitive 110 25 >
- <primitive 112 temp 1 " truncated " \
- #( #[ 32 48 199 224 5 32 250 1 73 243 224 5 32 250 1 \
- 72 243 209 243 245] \
- #( 0.0 ) ) >
-
- <primitive 112 temp 2 " sqrt " \
- #( #[ 32 250 1 71 243 245] \
- #( ) ) >
-
- <primitive 112 temp 3 " rounded " \
- #( #[ 32 48 192 250 1 72 243 245] \
- #( 0.5 ) ) >
-
- <primitive 112 temp 4 " radix: " \
- #( #[ 32 33 250 2 89 243 245] \
- #( ) ) >
-
- <primitive 112 temp 5 " ln " \
- #( #[ 32 250 1 70 243 245] \
- #( ) ) >
-
- <primitive 112 temp 6 " integerPart " \
- #( #[ 32 250 1 75 243 245] \
- #( ) ) >
-
- <primitive 112 temp 7 " gamma " \
- #( #[ 32 250 1 77 243 245] \
- #( ) ) >
-
- <primitive 112 temp 8 " fractionPart " \
- #( #[ 32 250 1 76 243 245] \
- #( ) ) >
-
- <primitive 112 temp 9 " floor " \
- #( #[ 32 250 1 72 243 245] \
- #( ) ) >
-
- <primitive 112 temp 10 " exp " \
- #( #[ 32 250 1 79 243 245] \
- #( ) ) >
-
- <primitive 112 temp 11 " coerce: " \
- #( #[ 33 175 243 245] \
- #( ) ) >
-
- <primitive 112 temp 12 " ceiling " \
- #( #[ 32 250 1 73 243 245] \
- #( ) ) >
-
- <primitive 112 temp 13 " asString " \
- #( #[ 32 250 1 78 243 245] \
- #( ) ) >
-
- <primitive 112 temp 14 " asFloat " \
- #( #[ 32 243 245] \
- #( ) ) >
-
- <primitive 112 temp 15 " arcTan " \
- #( #[ 5 54 32 250 1 86 176 243 245] \
- #( ) ) >
-
- <primitive 112 temp 16 " arcSin " \
- #( #[ 5 54 32 250 1 84 176 243 245] \
- #( ) ) >
-
- <primitive 112 temp 17 " arcCos " \
- #( #[ 5 54 32 250 1 85 176 243 245] \
- #( ) ) >
-
- <primitive 112 temp 18 " ^ " \
- #( #[ 32 33 250 2 6 224 6 32 33 250 2 88 243 224 5 \
- 32 33 145 0 243 209 243 245] \
- #( #raisedTo: ) ) >
-
- <primitive 112 temp 19 " / " \
- #( #[ 32 33 250 2 6 224 6 32 33 250 2 69 243 224 5 \
- 32 33 145 0 243 209 243 245] \
- #( #/ ) ) >
-
- <primitive 112 temp 20 " * " \
- #( #[ 32 33 250 2 6 224 6 32 33 250 2 68 243 224 5 \
- 32 33 145 0 243 209 243 245] \
- #( #* ) ) >
-
- <primitive 112 temp 21 " - " \
- #( #[ 32 33 250 2 6 224 6 32 33 250 2 61 243 224 5 \
- 32 33 145 0 243 209 243 245] \
- #( #- ) ) >
-
- <primitive 112 temp 22 " + " \
- #( #[ 32 33 250 2 6 224 6 32 33 250 2 60 243 224 5 \
- 32 33 145 0 243 209 243 245] \
- #( #+ ) ) >
-
- <primitive 112 temp 23 " > " \
- #( #[ 32 33 250 2 6 224 6 32 33 250 2 63 243 224 5 \
- 32 33 145 0 243 209 243 245] \
- #( #> ) ) >
-
- <primitive 112 temp 24 " < " \
- #( #[ 32 33 250 2 6 224 6 32 33 250 2 62 243 224 5 \
- 32 33 145 0 243 209 243 245] \
- #( #< ) ) >
-
- <primitive 112 temp 25 " = " \
- #( #[ 32 33 250 2 6 224 6 32 33 250 2 66 243 224 5 \
- 32 33 145 0 243 209 243 245] \
- #( #= ) ) >
-
- <primitive 98 #Float \
- <primitive 97 #Float #Number #float.st \
- #( ) \
- #( #truncated #sqrt #rounded #radix: #ln #integerPart #gamma #fractionPart #floor #exp #coerce: #ceiling #asString #asFloat #arcTan #arcSin #arcCos #^ #/ #* #- #+ #> #< #= ) \
- temp 2 6 > >
-
- temp <- <primitive 110 8 >
- <primitive 112 temp 1 " printString " \
- #( #[ 16 10 16 48 11 17 243 245] \
- #( ' radians' ) ) >
-
- <primitive 112 temp 2 " asFloat " \
- #( #[ 16 243 245] \
- #( ) ) >
-
- <primitive 112 temp 3 " tan " \
- #( #[ 16 250 1 81 16 250 1 82 190 243 245] \
- #( ) ) >
-
- <primitive 112 temp 4 " cos " \
- #( #[ 16 250 1 82 243 245] \
- #( ) ) >
-
- <primitive 112 temp 5 " sin " \
- #( #[ 16 250 1 81 243 245] \
- #( ) ) >
-
- <primitive 112 temp 6 " = " \
- #( #[ 16 33 175 201 243 245] \
- #( ) ) >
-
- <primitive 112 temp 7 " < " \
- #( #[ 16 33 175 199 243 245] \
- #( ) ) >
-
- <primitive 112 temp 8 " new: " \
- #( #[ 33 175 250 1 80 96 245] \
- #( ) ) >
-
- <primitive 98 #Radian \
- <primitive 97 #Radian #Magnitude #radian.st \
- #( #value ) \
- #( #printString #asFloat #tan #cos #sin #= #< #new: ) \
- temp 2 3 > >
-
- temp <- <primitive 110 20 >
- <primitive 112 temp 1 " y: " \
- #( #[ 33 97 245] \
- #( ) ) >
-
- <primitive 112 temp 2 " y " \
- #( #[ 17 243 245] \
- #( ) ) >
-
- <primitive 112 temp 3 " x: " \
- #( #[ 33 96 245] \
- #( ) ) >
-
- <primitive 112 temp 4 " x " \
- #( #[ 16 243 245] \
- #( ) ) >
-
- <primitive 112 temp 5 " transpose " \
- #( #[ 5 53 160 17 11 47 16 11 48 243 245] \
- #( ) ) >
-
- <primitive 112 temp 6 " printString " \
- #( #[ 16 169 48 11 17 17 169 11 17 243 245] \
- #( ' @ ' ) ) >
-
- <primitive 112 temp 7 " min: " \
- #( #[ 5 53 160 16 33 10 47 207 11 47 17 33 10 48 207 \
- 11 48 243 245] \
- #( ) ) >
-
- <primitive 112 temp 8 " max: " \
- #( #[ 5 53 160 16 33 10 47 12 16 11 47 17 33 10 48 \
- 12 16 11 48 243 245] \
- #( ) ) >
-
- <primitive 112 temp 9 " dist: " \
- #( #[ 16 33 10 47 193 10 42 17 33 10 48 193 10 42 192 \
- 10 41 243 245] \
- #( ) ) >
-
- <primitive 112 temp 10 " asString " \
- #( #[ 16 10 16 48 11 17 17 10 16 11 17 243 245] \
- #( ' @ ' ) ) >
-
- <primitive 112 temp 11 " abs " \
- #( #[ 5 53 160 16 173 11 47 17 173 11 48 243 245] \
- #( ) ) >
-
- <primitive 112 temp 12 " // " \
- #( #[ 5 53 160 16 33 11 18 11 47 17 33 11 18 11 48 \
- 243 245] \
- #( ) ) >
-
- <primitive 112 temp 13 " / " \
- #( #[ 5 53 160 16 33 190 11 47 17 33 190 11 48 243 245 \
- ] \
- #( ) ) >
-
- <primitive 112 temp 14 " - " \
- #( #[ 5 53 160 16 33 10 47 193 11 47 17 33 10 48 193 \
- 11 48 243 245] \
- #( ) ) >
-
- <primitive 112 temp 15 " + " \
- #( #[ 5 53 160 16 33 10 47 192 11 47 17 33 10 48 192 \
- 11 48 243 245] \
- #( ) ) >
-
- <primitive 112 temp 16 " * " \
- #( #[ 5 53 160 16 33 194 11 47 17 33 194 11 48 243 245 \
- ] \
- #( ) ) >
-
- <primitive 112 temp 17 " = " \
- #( #[ 16 33 10 47 201 252 5 17 33 10 48 201 243 245] \
- #( ) ) >
-
- <primitive 112 temp 18 " >= " \
- #( #[ 16 33 10 47 203 252 5 17 33 10 48 203 243 245] \
- #( ) ) >
-
- <primitive 112 temp 19 " <= " \
- #( #[ 16 33 10 47 200 252 5 17 33 10 48 199 243 245] \
- #( ) ) >
-
- <primitive 112 temp 20 " < " \
- #( #[ 16 33 10 47 199 252 5 17 33 10 48 199 243 245] \
- #( ) ) >
-
- <primitive 98 #Point \
- <primitive 97 #Point #Magnitude #point.st \
- #( #xvalue #yvalue ) \
- #( #y: #y #x: #x #transpose #printString #min: #max: #dist: #asString #abs #// #/ #- #+ #* #= #>= #<= #< ) \
- temp 2 4 > >
-
- temp <- <primitive 110 7 >
- <primitive 112 temp 1 " next: " \
- #( #[ 5 30 33 176 114 81 33 178 225 3 6 34 35 32 167 \
- 208 243 179 242 34 243 245] \
- #( ) ) >
-
- <primitive 112 temp 2 " randInteger: " \
- #( #[ 32 167 33 194 10 45 81 192 243 245] \
- #( ) ) >
-
- <primitive 112 temp 3 " between:and: " \
- #( #[ 32 167 34 33 193 194 33 192 243 245] \
- #( ) ) >
-
- <primitive 112 temp 4 " next " \
- #( #[ 16 250 1 35 241 96 250 1 32 243 245] \
- #( ) ) >
-
- <primitive 112 temp 5 " first " \
- #( #[ 16 250 1 35 241 96 250 1 32 243 245] \
- #( ) ) >
-
- <primitive 112 temp 6 " randomize " \
- #( #[ 250 0 161 96 245] \
- #( ) ) >
-
- <primitive 112 temp 7 " new " \
- #( #[ 81 96 245] \
- #( ) ) >
-
- <primitive 98 #Random \
- <primitive 97 #Random #Object #random.st \
- #( #seed ) \
- #( #next: #randInteger: #between:and: #next #first #randomize #new ) \
- temp 4 6 > >
-
- temp <- <primitive 110 20 >
- <primitive 112 temp 1 " asArray " \
- #( #[ 5 30 32 163 176 241 81 32 163 32 131 0 242 243 245 \
- ] \
- #( #replaceFrom:to:with: ) ) >
-
- <primitive 112 temp 2 " asString " \
- #( #[ 5 58 32 163 176 241 81 32 163 32 131 0 242 243 245 \
- ] \
- #( #replaceFrom:to:with: ) ) >
-
- <primitive 112 temp 3 " asLinkedList " \
- #( #[ 5 48 160 32 11 20 243 245] \
- #( ) ) >
-
- <primitive 112 temp 4 " asSet " \
- #( #[ 5 57 160 32 11 19 243 245] \
- #( ) ) >
-
- <primitive 112 temp 5 " asBag " \
- #( #[ 5 32 160 32 11 19 243 245] \
- #( ) ) >
-
- <primitive 112 temp 6 " printString " \
- #( #[ 32 32 164 169 48 11 17 226 1 9 33 49 11 17 34 \
- 169 11 17 243 215 50 11 17 243 245] \
- #( ' (' ' ' ' )' ) ) >
-
- <primitive 112 temp 7 " inject:into: " \
- #( #[ 33 115 32 225 4 7 34 35 36 211 241 115 243 179 242 \
- 35 243 245] \
- #( ) ) >
-
- <primitive 112 temp 8 " detect:ifAbsent: " \
- #( #[ 32 225 3 8 33 35 180 247 2 35 244 243 179 242 34 \
- 165 243 245] \
- #( ) ) >
-
- <primitive 112 temp 9 " detect: " \
- #( #[ 32 225 2 8 33 34 180 247 2 34 244 243 179 242 32 \
- 48 188 243 245] \
- #( 'no object found matching detect' ) ) >
-
- <primitive 112 temp 10 " collect: " \
- #( #[ 32 32 164 160 226 2 8 34 33 35 180 189 242 34 243 \
- 215 243 245] \
- #( ) ) >
-
- <primitive 112 temp 11 " reject: " \
- #( #[ 32 225 2 5 33 34 180 172 243 11 41 243 245] \
- #( ) ) >
-
- <primitive 112 temp 12 " select: " \
- #( #[ 32 32 164 160 226 2 11 33 35 180 247 3 34 35 189 \
- 242 34 243 215 243 245] \
- #( ) ) >
-
- <primitive 112 temp 13 " first " \
- #( #[ 32 48 188 243 245] \
- #( 'subclass should implement first' ) ) >
-
- <primitive 112 temp 14 " isEmpty " \
- #( #[ 32 163 80 201 243 245] \
- #( ) ) >
-
- <primitive 112 temp 15 " occurrencesOf: " \
- #( #[ 32 80 226 2 15 35 33 201 224 4 34 81 192 243 224 \
- 2 34 243 209 243 215 243 245] \
- #( ) ) >
-
- <primitive 112 temp 16 " size " \
- #( #[ 80 113 32 225 2 6 33 81 192 241 113 243 179 242 33 \
- 243 245] \
- #( ) ) >
-
- <primitive 112 temp 17 " remove:ifAbsent: " \
- #( #[ 32 33 11 28 224 5 32 33 11 36 243 224 3 34 165 \
- 243 209 243 245] \
- #( ) ) >
-
- <primitive 112 temp 18 " remove: " \
- #( #[ 32 33 224 4 32 48 188 244 216 242 33 243 245] \
- #( 'attempt to remove object not found in collection' ) ) >
-
- <primitive 112 temp 19 " includes: " \
- #( #[ 32 33 11 33 170 243 245] \
- #( ) ) >
-
- <primitive 112 temp 20 " addAll: " \
- #( #[ 33 225 2 4 32 34 189 243 179 242 245] \
- #( ) ) >
-
- <primitive 98 #Collection \
- <primitive 97 #Collection #Object #collection.st \
- #( ) \
- #( #asArray #asString #asLinkedList #asSet #asBag #printString #inject:into: #detect:ifAbsent: #detect: #collect: #reject: #select: #first #isEmpty #occurrencesOf: #size #remove:ifAbsent: #remove: #includes: #addAll: ) \
- temp 5 8 > >
-
- temp <- <primitive 110 8 >
- <primitive 112 temp 1 " next " \
- #( #[ 17 162 247 28 17 80 204 224 7 17 81 193 97 16 171 \
- 244 224 10 16 167 241 97 161 247 2 93 244 243 209 242 \
- 249 32 242 93 243 245] \
- #( ) ) >
-
- <primitive 112 temp 2 " first " \
- #( #[ 16 166 241 97 161 247 2 93 243 242 17 81 193 97 16 \
- 171 243 245] \
- #( ) ) >
-
- <primitive 112 temp 3 " occurrencesOf: " \
- #( #[ 16 33 224 2 80 243 213 243 245] \
- #( ) ) >
-
- <primitive 112 temp 4 " size " \
- #( #[ 16 80 226 1 4 33 34 192 243 215 243 245] \
- #( ) ) >
-
- <primitive 112 temp 5 " remove:ifAbsent: " \
- #( #[ 16 33 224 3 34 165 244 213 115 81 35 201 224 5 16 \
- 33 11 37 243 224 7 16 33 35 81 193 208 243 209 242 \
- 245] \
- #( ) ) >
-
- <primitive 112 temp 6 " add:withOccurrences: " \
- #( #[ 34 224 4 32 33 189 243 183 242 33 243 245] \
- #( ) ) >
-
- <primitive 112 temp 7 " add: " \
- #( #[ 16 33 81 16 33 224 2 80 243 213 192 208 242 245] \
- #( ) ) >
-
- <primitive 112 temp 8 " new " \
- #( #[ 5 40 160 96 245] \
- #( ) ) >
-
- <primitive 98 #Bag \
- <primitive 97 #Bag #Collection #bag.st \
- #( #dict #count ) \
- #( #next #first #occurrencesOf: #size #remove:ifAbsent: #add:withOccurrences: #add: #new ) \
- temp 4 8 > >
-
- temp <- <primitive 110 7 >
- <primitive 112 temp 1 " next " \
- #( #[ 16 167 162 247 2 16 171 243 245] \
- #( ) ) >
-
- <primitive 112 temp 2 " first " \
- #( #[ 16 166 162 247 2 16 171 243 245] \
- #( ) ) >
-
- <primitive 112 temp 3 " occurrencesOf: " \
- #( #[ 16 33 224 2 80 243 213 243 245] \
- #( ) ) >
-
- <primitive 112 temp 4 " size " \
- #( #[ 16 163 243 245] \
- #( ) ) >
-
- <primitive 112 temp 5 " remove:ifAbsent: " \
- #( #[ 16 33 34 217 242 245] \
- #( ) ) >
-
- <primitive 112 temp 6 " add: " \
- #( #[ 16 33 224 5 16 33 81 208 243 213 242 245] \
- #( ) ) >
-
- <primitive 112 temp 7 " new " \
- #( #[ 5 40 160 96 245] \
- #( ) ) >
-
- <primitive 98 #Set \
- <primitive 97 #Set #Collection #set.st \
- #( #dict ) \
- #( #next #first #occurrencesOf: #size #remove:ifAbsent: #add: #new ) \
- temp 3 7 > >
-
- temp <- <primitive 110 20 >
- <primitive 112 temp 1 " coerce: " \
- #( #[ 33 243 245] \
- #( ) ) >
-
- <primitive 112 temp 2 " collect: " \
- #( #[ 32 32 5 40 160 226 2 10 34 32 171 33 35 180 208 \
- 242 34 243 215 191 243 245] \
- #( ) ) >
-
- <primitive 112 temp 3 " keysSelect: " \
- #( #[ 32 32 5 40 160 226 2 14 33 35 171 180 247 5 34 \
- 32 171 35 208 242 34 243 215 191 243 245] \
- #( ) ) >
-
- <primitive 112 temp 4 " select: " \
- #( #[ 32 32 5 40 160 226 2 13 33 35 180 247 5 34 32 \
- 171 35 208 242 34 243 215 191 243 245] \
- #( ) ) >
-
- <primitive 112 temp 5 " at: " \
- #( #[ 32 33 224 10 32 33 169 48 11 17 188 242 33 244 213 \
- 243 245] \
- #( ': association not found' ) ) >
-
- <primitive 112 temp 6 " values " \
- #( #[ 5 32 160 113 32 226 2 4 33 35 189 243 11 23 242 \
- 33 243 245] \
- #( ) ) >
-
- <primitive 112 temp 7 " keys " \
- #( #[ 5 57 160 113 32 226 2 4 33 34 189 243 11 23 242 \
- 33 243 245] \
- #( ) ) >
-
- <primitive 112 temp 8 " includesKey: " \
- #( #[ 32 33 224 2 92 244 213 242 91 243 245] \
- #( ) ) >
-
- <primitive 112 temp 9 " includes: " \
- #( #[ 32 225 2 8 34 33 201 247 2 91 244 243 179 242 92 \
- 243 245] \
- #( ) ) >
-
- <primitive 112 temp 10 " removeKey:ifAbsent: " \
- #( #[ 32 33 11 49 246 3 34 165 243 242 32 33 11 37 243 \
- 245] \
- #( ) ) >
-
- <primitive 112 temp 11 " removeKey: " \
- #( #[ 32 33 224 6 32 48 188 242 33 244 217 243 245] \
- #( 'no element associated with key' ) ) >
-
- <primitive 112 temp 12 " remove: " \
- #( #[ 32 48 188 243 245] \
- #( 'object must be removed with explicit key' ) ) >
-
- <primitive 112 temp 13 " indexOf:ifAbsent: " \
- #( #[ 32 225 3 9 35 33 201 247 3 32 171 244 243 179 242 \
- 34 165 243 245] \
- #( ) ) >
-
- <primitive 112 temp 14 " indexOf: " \
- #( #[ 32 225 2 9 34 33 201 247 3 32 171 244 243 179 242 \
- 32 48 188 243 245] \
- #( 'element not found' ) ) >
-
- <primitive 112 temp 15 " addAll: " \
- #( #[ 33 226 2 5 32 34 35 208 243 11 23 242 33 243 245 \
- ] \
- #( ) ) >
-
- <primitive 112 temp 16 " asDictionary " \
- #( #[ 5 40 160 113 32 226 2 5 33 34 35 208 243 11 23 \
- 242 33 243 245] \
- #( ) ) >
-
- <primitive 112 temp 17 " binaryDo: " \
- #( #[ 32 166 114 34 162 247 13 33 32 171 34 211 242 32 167 \
- 241 114 242 249 17 242 93 243 245] \
- #( ) ) >
-
- <primitive 112 temp 18 " keysDo: " \
- #( #[ 32 225 2 5 33 32 171 180 243 179 243 245] \
- #( ) ) >
-
- <primitive 112 temp 19 " atAll:put: " \
- #( #[ 33 225 3 5 32 35 34 208 243 179 242 245] \
- #( ) ) >
-
- <primitive 112 temp 20 " add: " \
- #( #[ 32 48 188 243 245] \
- #( 'Must add with explicit key' ) ) >
-
- <primitive 98 #KeyedCollection \
- <primitive 97 #KeyedCollection #Collection #kcollection.st \
- #( ) \
- #( #coerce: #collect: #keysSelect: #select: #at: #values #keys #includesKey: #includes: #removeKey:ifAbsent: #removeKey: #remove: #indexOf:ifAbsent: #indexOf: #addAll: #asDictionary #binaryDo: #keysDo: #atAll:put: #add: ) \
- temp 4 9 > >
-
- temp <- <primitive 110 11 >
- <primitive 112 temp 1 " checkBucket: " \
- #( #[ 16 33 241 97 177 241 98 161 247 2 93 243 242 18 166 \
- 243 245] \
- #( ) ) >
-
- <primitive 112 temp 2 " currentKey " \
- #( #[ 18 162 247 11 18 10 21 113 33 162 247 3 33 10 47 \
- 243 245] \
- #( ) ) >
-
- <primitive 112 temp 3 " printString " \
- #( #[ 32 32 164 169 48 11 17 226 1 17 33 32 171 169 11 \
- 17 49 11 17 34 169 11 17 50 11 17 243 215 51 11 \
- 17 243 245] \
- #( ' ( ' ' @ ' ' ' ')' ) ) >
-
- <primitive 112 temp 4 " next " \
- #( #[ 18 167 241 113 162 247 4 33 10 48 243 242 17 5 17 \
- 199 247 20 17 81 192 97 32 17 11 24 241 113 162 247 \
- 4 33 10 48 243 242 249 26 242 93 243 245] \
- #( ) ) >
-
- <primitive 112 temp 5 " first " \
- #( #[ 81 5 17 178 225 2 14 32 34 11 24 241 113 162 247 \
- 4 33 10 48 244 243 179 242 93 243 245] \
- #( ) ) >
-
- <primitive 112 temp 6 " findAssociation:inList: " \
- #( #[ 34 225 3 10 35 10 47 33 201 247 2 35 244 243 179 \
- 242 93 243 245] \
- #( ) ) >
-
- <primitive 112 temp 7 " removeKey:ifAbsent: " \
- #( #[ 16 32 33 129 0 177 241 115 161 247 3 34 165 243 242 \
- 32 33 35 222 241 116 161 247 3 34 165 243 242 35 36 \
- 224 3 34 165 244 216 10 48 243 245] \
- #( #hashNumber: ) ) >
-
- <primitive 112 temp 8 " at:ifAbsent: " \
- #( #[ 16 32 33 129 0 177 241 115 161 247 3 34 165 243 242 \
- 32 33 35 222 241 116 161 247 3 34 165 243 242 36 10 \
- 48 243 245] \
- #( #hashNumber: ) ) >
-
- <primitive 112 temp 9 " at:put: " \
- #( #[ 32 33 129 0 115 16 35 177 241 116 161 247 8 16 35 \
- 5 48 160 241 116 208 242 32 33 36 222 117 37 161 224 \
- 14 5 53 160 33 11 47 34 11 48 117 36 37 189 243 \
- 224 5 37 34 11 48 243 209 242 34 243 245] \
- #( #hashNumber: ) ) >
-
- <primitive 112 temp 10 " hashNumber: " \
- #( #[ 33 250 1 5 16 163 195 81 192 243 245] \
- #( ) ) >
-
- <primitive 112 temp 11 " new " \
- #( #[ 5 30 5 17 176 96 245] \
- #( ) ) >
-
- <primitive 98 #Dictionary \
- <primitive 97 #Dictionary #KeyedCollection #dictionary.st \
- #( #hashTable #currentBucket #currentList ) \
- #( #checkBucket: #currentKey #printString #next #first #findAssociation:inList: #removeKey:ifAbsent: #at:ifAbsent: #at:put: #hashNumber: #new ) \
- temp 6 7 > >
-
- temp <- <primitive 110 23 >
- <primitive 112 temp 1 " sort: " \
- #( #[ 32 174 116 82 36 163 178 225 5 51 37 81 193 114 34 \
- 81 203 252 11 33 36 34 177 36 34 81 192 177 211 172 \
- 247 28 36 34 177 115 36 34 36 34 81 192 177 208 242 \
- 36 34 81 192 35 208 242 34 81 193 241 114 242 249 46 \
- 243 179 242 32 36 191 243 245] \
- #( ) ) >
-
- <primitive 112 temp 2 " sort " \
- #( #[ 32 226 1 4 33 34 200 243 11 43 243 245] \
- #( ) ) >
-
- <primitive 112 temp 3 " reversed " \
- #( #[ 5 30 32 163 241 114 176 113 32 225 3 11 33 34 35 \
- 208 242 34 81 193 241 114 243 179 242 32 33 191 243 245 \
- ] \
- #( ) ) >
-
- <primitive 112 temp 4 " collect: " \
- #( #[ 32 32 5 48 160 226 2 9 34 33 35 180 11 22 242 \
- 34 243 215 191 243 245] \
- #( ) ) >
-
- <primitive 112 temp 5 " select: " \
- #( #[ 32 32 5 48 160 226 2 12 33 35 180 247 4 34 35 \
- 11 22 242 34 243 215 191 243 245] \
- #( ) ) >
-
- <primitive 112 temp 6 " copyWithout: " \
- #( #[ 5 48 160 114 32 225 3 10 35 33 181 246 4 34 35 \
- 11 22 243 179 242 32 34 191 243 245] \
- #( ) ) >
-
- <primitive 112 temp 7 " copyWith: " \
- #( #[ 5 48 160 114 34 32 11 20 242 34 33 11 22 242 32 \
- 34 191 243 245] \
- #( ) ) >
-
- <primitive 112 temp 8 " copyFrom:to: " \
- #( #[ 5 48 160 115 33 34 178 225 4 7 35 32 36 177 11 \
- 22 243 179 242 32 35 191 243 245] \
- #( ) ) >
-
- <primitive 112 temp 9 " , " \
- #( #[ 5 48 160 114 34 32 11 20 242 34 33 11 20 242 32 \
- 34 191 243 245] \
- #( ) ) >
-
- <primitive 112 temp 10 " replaceFrom:to:with:startingAt: " \
- #( #[ 80 117 33 37 192 34 200 247 25 32 33 37 192 35 37 \
- 36 192 177 208 242 37 81 192 117 33 37 192 34 200 242 \
- 33 242 249 32 242 245] \
- #( ) ) >
-
- <primitive 112 temp 11 " replaceFrom:to:with: " \
- #( #[ 35 33 226 4 9 32 36 37 208 242 36 81 192 243 215 \
- 242 245] \
- #( ) ) >
-
- <primitive 112 temp 12 " with:do: " \
- #( #[ 32 166 115 33 166 116 35 162 247 15 34 35 36 211 242 \
- 32 167 115 33 167 241 116 242 249 19 242 93 243 245] \
- #( ) ) >
-
- <primitive 112 temp 13 " findLast:ifAbsent: " \
- #( #[ 32 225 3 9 33 35 180 247 3 32 171 244 243 11 39 \
- 242 34 165 243 245] \
- #( ) ) >
-
- <primitive 112 temp 14 " findLast: " \
- #( #[ 32 33 224 4 32 48 188 243 220 242 245] \
- #( 'last element not found' ) ) >
-
- <primitive 112 temp 15 " findFirst:ifAbsent: " \
- #( #[ 32 225 3 9 33 35 180 247 3 32 171 244 243 179 242 \
- 34 165 243 245] \
- #( ) ) >
-
- <primitive 112 temp 16 " findFirst: " \
- #( #[ 32 33 224 4 32 48 188 243 219 243 245] \
- #( 'first element not found' ) ) >
-
- <primitive 112 temp 17 " indexOfSubCollection:startingAt: " \
- #( #[ 32 33 34 224 6 32 48 188 242 93 243 131 1 243 245 \
- ] \
- #( 'element not found' #indexOfSubCollection:startingAt:ifAbsent: ) ) >
-
- <primitive 112 temp 18 " indexOfSubCollection:startingAt:ifAbsent: " \
- #( #[ 34 116 32 163 33 163 193 117 36 37 200 247 17 33 32 \
- 36 221 247 2 36 243 242 36 81 192 241 116 242 249 22 \
- 242 35 165 243 245] \
- #( ) ) >
-
- <primitive 112 temp 19 " equals:startingAt: " \
- #( #[ 80 115 32 225 4 22 36 33 34 35 192 224 2 92 244 \
- 213 201 246 2 92 244 242 35 81 192 241 115 243 179 242 \
- 91 243 245] \
- #( ) ) >
-
- <primitive 112 temp 20 " lastKey " \
- #( #[ 32 163 243 245] \
- #( ) ) >
-
- <primitive 112 temp 21 " firstKey " \
- #( #[ 81 243 245] \
- #( ) ) >
-
- <primitive 112 temp 22 " last " \
- #( #[ 80 32 163 201 246 5 32 32 10 31 177 243 245] \
- #( ) ) >
-
- <primitive 112 temp 23 " reverseDo: " \
- #( #[ 32 10 31 114 32 10 25 115 34 35 203 247 20 32 34 \
- 11 49 247 5 33 32 34 177 180 242 34 81 193 241 114 \
- 242 249 25 242 93 243 245] \
- #( ) ) >
-
- <primitive 98 #SequenceableCollection \
- <primitive 97 #SequenceableCollection #KeyedCollection #scollection.st \
- #( ) \
- #( #sort: #sort #reversed #collect: #select: #copyWithout: #copyWith: #copyFrom:to: #, #replaceFrom:to:with:startingAt: #replaceFrom:to:with: #with:do: #findLast:ifAbsent: #findLast: #findFirst:ifAbsent: #findFirst: #indexOfSubCollection:startingAt: #indexOfSubCollection:startingAt:ifAbsent: #equals:startingAt: #lastKey #firstKey #last #reverseDo: ) \
- temp 6 9 > >
-
- temp <- <primitive 110 11 >
- <primitive 112 temp 1 " removeKey:ifAbsent: " \
- #( #[ 32 48 188 242 34 165 243 245] \
- #( 'cannot remove from Interval' ) ) >
-
- <primitive 112 temp 2 " add: " \
- #( #[ 32 48 188 243 245] \
- #( 'cannot store into Interval' ) ) >
-
- <primitive 112 temp 3 " at:put: " \
- #( #[ 32 48 188 243 245] \
- #( 'cannot store into Interval' ) ) >
-
- <primitive 112 temp 4 " coerce: " \
- #( #[ 5 30 33 163 176 114 34 81 33 163 33 131 0 242 34 \
- 243 245] \
- #( #replaceFrom:to:with: ) ) >
-
- <primitive 112 temp 5 " printString " \
- #( #[ 48 16 169 11 17 49 11 17 17 169 11 17 50 11 17 \
- 18 169 11 17 243 245] \
- #( 'Interval ' ' to ' ' by ' ) ) >
-
- <primitive 112 temp 6 " at:ifAbsent: " \
- #( #[ 16 18 33 81 193 194 192 115 32 35 11 29 224 2 35 \
- 243 224 3 34 165 243 209 243 245] \
- #( ) ) >
-
- <primitive 112 temp 7 " next " \
- #( #[ 19 18 192 99 32 19 11 29 246 3 93 241 99 242 19 \
- 243 245] \
- #( ) ) >
-
- <primitive 112 temp 8 " first " \
- #( #[ 16 99 32 19 11 29 246 3 93 241 99 242 19 243 245 \
- ] \
- #( ) ) >
-
- <primitive 112 temp 9 " inRange: " \
- #( #[ 18 170 224 9 33 16 203 252 3 33 17 200 243 224 9 \
- 33 17 203 252 3 33 16 200 243 209 243 245] \
- #( ) ) >
-
- <primitive 112 temp 10 " size " \
- #( #[ 18 170 224 4 17 16 199 243 224 4 16 17 199 243 209 \
- 224 2 80 243 224 9 17 16 193 18 11 18 81 192 243 \
- 209 243 245] \
- #( ) ) >
-
- <primitive 112 temp 11 " from:to:by: " \
- #( #[ 33 241 96 99 34 97 35 98 245] \
- #( ) ) >
-
- <primitive 98 #Interval \
- <primitive 97 #Interval #SequenceableCollection #interval.st \
- #( #lower #upper #step #current ) \
- #( #removeKey:ifAbsent: #add: #at:put: #coerce: #printString #at:ifAbsent: #next #first #inRange: #size #from:to:by: ) \
- temp 4 7 > >
-
- temp <- <primitive 110 17 >
- <primitive 112 temp 1 " isEmpty " \
- #( #[ 16 93 181 243 245] \
- #( ) ) >
-
- <primitive 112 temp 2 " last " \
- #( #[ 16 161 247 2 93 243 242 32 10 24 10 47 243 245] \
- #( ) ) >
-
- <primitive 112 temp 3 " current " \
- #( #[ 17 10 47 243 245] \
- #( ) ) >
-
- <primitive 112 temp 4 " next " \
- #( #[ 17 10 48 241 97 162 247 4 17 10 47 243 242 93 243 \
- 245] \
- #( ) ) >
-
- <primitive 112 temp 5 " first " \
- #( #[ 16 241 97 162 247 4 17 10 47 243 242 93 243 245] \
- #( ) ) >
-
- <primitive 112 temp 6 " removeLast " \
- #( #[ 16 161 247 4 32 10 36 243 242 32 32 10 30 224 4 \
- 32 10 36 243 216 243 245] \
- #( ) ) >
-
- <primitive 112 temp 7 " removeFirst " \
- #( #[ 16 161 247 4 32 10 36 243 242 32 16 10 47 224 4 \
- 32 10 36 243 216 243 245] \
- #( ) ) >
-
- <primitive 112 temp 8 " removeError " \
- #( #[ 32 48 188 243 245] \
- #( 'cannot remove from an empty list' ) ) >
-
- <primitive 112 temp 9 " remove:ifAbsent: " \
- #( #[ 16 161 247 3 34 165 243 242 32 93 226 3 33 17 10 \
- 47 33 181 247 23 35 161 224 6 17 10 48 241 96 243 \
- 224 7 35 17 10 48 11 48 243 209 242 33 244 242 17 \
- 243 215 242 34 165 243 245] \
- #( ) ) >
-
- <primitive 112 temp 10 " remove: " \
- #( #[ 32 33 224 4 32 48 188 243 216 243 245] \
- #( 'cant find item' ) ) >
-
- <primitive 112 temp 11 " findLast " \
- #( #[ 16 241 113 161 247 2 93 243 242 33 10 48 162 247 8 \
- 33 10 48 241 113 242 249 14 242 33 243 245] \
- #( ) ) >
-
- <primitive 112 temp 12 " coerce: " \
- #( #[ 5 48 160 114 33 225 3 5 34 35 11 22 243 179 242 \
- 34 243 245] \
- #( ) ) >
-
- <primitive 112 temp 13 " addAllLast: " \
- #( #[ 33 225 2 5 32 34 11 22 243 179 242 245] \
- #( ) ) >
-
- <primitive 112 temp 14 " addAllFirst: " \
- #( #[ 33 225 2 5 32 34 11 21 243 179 242 245] \
- #( ) ) >
-
- <primitive 112 temp 15 " addLast: " \
- #( #[ 16 161 247 5 32 33 11 21 243 242 32 10 24 5 53 \
- 160 33 11 47 93 11 48 11 48 242 33 243 245] \
- #( ) ) >
-
- <primitive 112 temp 16 " addFirst: " \
- #( #[ 5 53 160 33 11 47 16 11 48 96 33 243 245] \
- #( ) ) >
-
- <primitive 112 temp 17 " add: " \
- #( #[ 5 53 160 33 11 47 16 11 48 96 33 243 245] \
- #( ) ) >
-
- <primitive 98 #LinkedList \
- <primitive 97 #LinkedList #SequenceableCollection #linked.st \
- #( #first #current ) \
- #( #isEmpty #last #current #next #first #removeLast #removeFirst #removeError #remove:ifAbsent: #remove: #findLast #coerce: #addAllLast: #addAllFirst: #addLast: #addFirst: #add: ) \
- temp 5 10 > >
-
- temp <- <primitive 110 8 >
- <primitive 112 temp 1 " = " \
- #( #[ 32 163 33 163 202 247 2 92 243 242 80 114 32 225 3 \
- 14 35 33 34 81 192 241 114 177 202 247 2 92 244 243 \
- 179 242 91 243 245] \
- #( ) ) >
-
- <primitive 112 temp 2 " coerce: " \
- #( #[ 32 164 33 163 176 114 34 81 33 163 33 131 0 242 34 \
- 243 245] \
- #( #replaceFrom:to:with: ) ) >
-
- <primitive 112 temp 3 " currentKey " \
- #( #[ 16 243 245] \
- #( ) ) >
-
- <primitive 112 temp 4 " next " \
- #( #[ 16 81 192 96 16 32 163 200 247 3 32 16 177 243 245 \
- ] \
- #( ) ) >
-
- <primitive 112 temp 5 " first " \
- #( #[ 81 96 16 32 163 200 247 3 32 16 177 243 245] \
- #( ) ) >
-
- <primitive 112 temp 6 " copyFrom:to: " \
- #( #[ 34 33 193 81 192 115 32 164 35 176 116 36 81 35 32 \
- 33 132 0 242 36 243 245] \
- #( #replaceFrom:to:with:startingAt: ) ) >
-
- <primitive 112 temp 7 " do: " \
- #( #[ 81 32 163 178 225 2 8 34 96 33 32 34 177 180 243 \
- 179 242 245] \
- #( ) ) >
-
- <primitive 112 temp 8 " at:ifAbsent: " \
- #( #[ 33 80 200 251 4 33 32 163 204 247 3 34 165 243 242 \
- 32 33 177 243 245] \
- #( ) ) >
-
- <primitive 98 #ArrayedCollection \
- <primitive 97 #ArrayedCollection #SequenceableCollection #acollection.st \
- #( #current ) \
- #( #= #coerce: #currentKey #next #first #copyFrom:to: #do: #at:ifAbsent: ) \
- temp 5 7 > >
-
- temp <- <primitive 110 13 >
- <primitive 112 temp 1 " write: " \
- #( #[ 32 33 250 2 132 243 245] \
- #( ) ) >
-
- <primitive 112 temp 2 " size " \
- #( #[ 32 250 1 134 243 245] \
- #( ) ) >
-
- <primitive 112 temp 3 " read " \
- #( #[ 32 250 1 131 243 245] \
- #( ) ) >
-
- <primitive 112 temp 4 " open:for: " \
- #( #[ 32 33 34 250 3 130 242 245] \
- #( ) ) >
-
- <primitive 112 temp 5 " open: " \
- #( #[ 32 33 48 250 3 130 242 245] \
- #( 'r' ) ) >
-
- <primitive 112 temp 6 " next " \
- #( #[ 32 10 35 243 245] \
- #( ) ) >
-
- <primitive 112 temp 7 " first " \
- #( #[ 32 80 177 243 245] \
- #( ) ) >
-
- <primitive 112 temp 8 " currentKey " \
- #( #[ 32 250 1 136 243 245] \
- #( ) ) >
-
- <primitive 112 temp 9 " at:put: " \
- #( #[ 32 33 250 2 135 242 32 34 11 46 243 245] \
- #( ) ) >
-
- <primitive 112 temp 10 " at: " \
- #( #[ 32 33 250 2 135 242 32 10 35 243 245] \
- #( ) ) >
-
- <primitive 112 temp 11 " modeString " \
- #( #[ 32 81 250 2 133 242 245] \
- #( ) ) >
-
- <primitive 112 temp 12 " modeInteger " \
- #( #[ 32 82 250 2 133 242 245] \
- #( ) ) >
-
- <primitive 112 temp 13 " modeCharacter " \
- #( #[ 32 80 250 2 133 242 245] \
- #( ) ) >
-
- <primitive 98 #File \
- <primitive 97 #File #SequenceableCollection #file.st \
- #( ) \
- #( #write: #size #read #open:for: #open: #next #first #currentKey #at:put: #at: #modeString #modeInteger #modeCharacter ) \
- temp 3 4 > >
-
- temp <- <primitive 110 4 >
- <primitive 112 temp 1 " wait " \
- #( #[ 250 0 148 242 16 80 201 224 9 32 95 11 22 242 95 \
- 10 18 243 224 6 16 81 193 241 96 243 209 242 250 0 \
- 149 242 245] \
- #( ) ) >
-
- <primitive 112 temp 2 " signal " \
- #( #[ 250 0 148 242 32 10 27 224 6 16 81 192 241 96 243 \
- 224 6 32 10 37 10 46 243 209 242 250 0 149 242 245 \
- ] \
- #( ) ) >
-
- <primitive 112 temp 3 " new: " \
- #( #[ 33 96 245] \
- #( ) ) >
-
- <primitive 112 temp 4 " new " \
- #( #[ 80 96 245] \
- #( ) ) >
-
- <primitive 98 #Semaphore \
- <primitive 97 #Semaphore #LinkedList #semaphore.st \
- #( #excessSignals ) \
- #( #wait #signal #new: #new ) \
- temp 2 6 > >
-
- temp <- <primitive 110 8 >
- <primitive 112 temp 1 " yield " \
- #( #[ 93 243 245] \
- #( ) ) >
-
- <primitive 112 temp 2 " unblock " \
- #( #[ 32 10 43 48 181 247 7 32 49 11 44 242 93 243 242 \
- 32 83 250 2 145 242 32 10 43 243 245] \
- #( #TERMINATED 'unblock' ) ) >
-
- <primitive 112 temp 3 " termErr: " \
- #( #[ 48 33 11 17 49 11 17 168 242 245] \
- #( 'Cannot ' ' a terminated process.' ) ) >
-
- <primitive 112 temp 4 " terminate " \
- #( #[ 32 250 1 142 242 32 10 43 243 245] \
- #( ) ) >
-
- <primitive 112 temp 5 " state " \
- #( #[ 32 250 1 146 113 33 80 201 247 4 48 113 33 243 242 \
- 33 81 201 247 4 49 113 33 243 242 33 82 201 247 4 \
- 50 113 33 243 242 33 83 201 247 4 50 113 33 243 242 \
- 33 84 203 247 4 51 113 33 243 242 245] \
- #( #READY #SUSPENDED #BLOCKED #TERMINATED ) ) >
-
- <primitive 112 temp 6 " suspend " \
- #( #[ 32 10 43 48 181 247 7 32 49 11 44 242 93 243 242 \
- 32 81 250 2 145 242 32 10 43 243 245] \
- #( #TERMINATED 'suspend' ) ) >
-
- <primitive 112 temp 7 " resume " \
- #( #[ 32 10 43 48 181 247 7 32 49 11 44 242 93 243 242 \
- 32 80 250 2 145 242 32 10 43 243 245] \
- #( #TERMINATED 'resume' ) ) >
-
- <primitive 112 temp 8 " block " \
- #( #[ 32 10 43 48 181 247 7 32 49 11 44 242 93 243 242 \
- 32 82 250 2 145 242 32 10 43 243 245] \
- #( #TERMINATED 'block' ) ) >
-
- <primitive 98 #Process \
- <primitive 97 #Process #Object #process.st \
- #( ) \
- #( #yield #unblock #termErr: #terminate #state #suspend #resume #block ) \
- temp 2 4 > >
-
- temp <- <primitive 110 6 >
- <primitive 112 temp 1 " sh: " \
- #( #[ 33 250 1 125 243 245] \
- #( ) ) >
-
- <primitive 112 temp 2 " noDisplay " \
- #( #[ 81 80 250 2 8 243 245] \
- #( ) ) >
-
- <primitive 112 temp 3 " displayAssign " \
- #( #[ 81 82 250 2 8 243 245] \
- #( ) ) >
-
- <primitive 112 temp 4 " display " \
- #( #[ 81 81 250 2 8 243 245] \
- #( ) ) >
-
- <primitive 112 temp 5 " debug: " \
- #( #[ 82 33 250 2 8 243 245] \
- #( ) ) >
-
- <primitive 112 temp 6 " date " \
- #( #[ 250 0 160 243 245] \
- #( ) ) >
-
- <primitive 98 #Smalltalk \
- <primitive 97 #Smalltalk #Dictionary #smalltalk.st \
- #( ) \
- #( #sh: #noDisplay #displayAssign #display #debug: #date ) \
- temp 2 3 > >
-
- smalltalk new
-